home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 September (Japanese) / CICA Shareware for Windows CD-ROM (Walnut Creek) (September 1995) (Japanese) (Disc 2).iso / disc2 / toolbook / avisamp.tbk (.txt) < prev    next >
Encoding:
Asymetrix ToolBook File  |  1993-02-17  |  11.2 KB  |  200 lines
  1. System
  2. System
  3. Fun with AVI
  4. \D|D|
  5. --Copyright 
  6.  1992
  7. Asymetrix Corporation
  8. gives you permission 
  9. e, revise 
  10. reuse the 
  11. --individual 
  12. scripts 
  13. your own 
  14. --applications.
  15. You may 
  16. x, however, 
  17. Sentire 
  18. --substantial part 
  19. redistribution 
  20. jproduct.
  21. retains 
  22. copyright on 
  23. original elements 
  24.  . Include 
  25. notice "Portions 
  26.  are 
  27. they 
  28. --contain 
  29. copied 
  30. ,:         JRG
  31. Q:    01/21/93
  32.     linkDLL "user"
  33.         -- 
  34. function 
  35. used 
  36.         INT MoveWindow(WORD,
  37. Stbkwin.dll"
  38.         -- 
  39. Rreturns coordinates 
  40. screen units
  41.         -- 
  42. takes 
  43. %a parameter
  44.         -- 
  45. Popup 
  46. Overlapped
  47.         -- windows
  48.         STRING screenFromPage(
  49.         -- 
  50. client 
  51.         -- 
  52.         -- 
  53. Child 
  54. pclientFromPage(
  55. ,INT,
  56. enterBook
  57. enterBook
  58. MoveWindow
  59. tbkwin.dll
  60. screenFromPage
  61. clientFromPage
  62. winStyle
  63. Popup
  64. fileName
  65. C:\TOOLBOOK\wndsurf1.avi
  66. Play AVI
  67. AVIrect
  68. the aVI 
  69. still playing
  70. tbkMCI("status AVIfile mode","")
  71. "","")
  72. =close 
  73. 6","")
  74. buttonUp
  75. buttonUp
  76. status AVIfile mode
  77. tbkMCI
  78. playing
  79. stop AVIfile
  80. tbkMCI
  81. close AVIfile
  82. tbkMCI
  83. Stop AVI
  84. winStyle 
  85. buttonUp
  86. buttonUp
  87. winStyle
  88. Popup
  89. Popup
  90. Overlapped
  91. Overlapped
  92. Child
  93. Child
  94. ButtonUp
  95. 4fileName
  96. OpenDlg("\", "*.avi", "Choose 
  97. ,.", "
  98. File")
  99. ButtonUp
  100. ButtonUp
  101. *.avi
  102. Choose an AVI file.
  103. Choose AVI File
  104. OpenDlg
  105. fileName
  106. choose
  107. Choose AVI
  108. -- The DLLs used 
  109. handler are linked/unlinked 
  110. 4fileName
  111.  has been 
  112.         -- 
  113. xload 
  114. ButtonUp 
  115. B"Choose"
  116. tbkMCI("close AVIfile","")
  117. style 
  118. radio buttons. 
  119. a user property 
  120. called winStyle.
  121.     -- Open 
  122. w="child"
  123. tbkMCIchk("
  124. " && filename && "alias 
  125. " && 
  126.             && "
  127. " && 
  128. ,"",1,1)
  129. " && 
  130. " && 
  131. ,"",1,1)
  132. hWin 
  133. }status 
  134. ","",1,1)
  135.     -- Determine 
  136. coordinates 
  137. wRect 
  138. clientFromPage(
  139.             sysMagnification, 
  140. "AVIrect" 
  141. screenFromPage(
  142.     --Break 
  143. x,y,width,height
  144. nWidth 
  145. nHeight 
  146. MoveWindow(
  147. ,x,y,
  148.  state 
  149. ","")
  150. play 
  151. default
  152. message 
  153. sent 
  154.  stops playing 
  155. -- closes 
  156. tbkMMNotify 
  157. ,op,dev
  158. le","")
  159. buttonUp
  160. tbkMMNotify
  161. buttonUp
  162. ButtonUp
  163. Choose
  164. close AVIfile
  165. tbkMCI
  166. winStyle
  167. child
  168. filename
  169. alias AVIfile style
  170. parent
  171. tbkMCIchk
  172. filename
  173. alias AVIfile style
  174. tbkMCIchk
  175. status AVIfile window handle
  176. tbkMCIchk
  177. child
  178. AVIrect
  179. clientFromPage
  180. AVIrect
  181. screenFromPage
  182. MoveWindow
  183. window AVIfile state show
  184. tbkMCI
  185. play AVIfile
  186. tbkMCI
  187. default
  188. nHeight
  189. nWidth
  190. wRect
  191. style
  192. fileName
  193. tbkMMNotify
  194. AVIfile
  195. close AVIfile
  196. tbkMCI
  197. o8LL/f
  198. LLLLQf
  199. )?CO8 
  200.